home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / cmpnew / cmpblock.data < prev    next >
Text File  |  1986-06-26  |  3KB  |  110 lines
  1.           
  2. #(
  3. #!
  4. (lisp::in-package 'user::compiler)
  5. lisp::block
  6. compiler::c1block
  7. compiler::c1special
  8. compiler::c2block
  9. compiler::c2
  10. lisp::return-from
  11. compiler::c1return-from
  12. compiler::c2return-from
  13. compiler::blk
  14. (lisp::defstruct compiler::blk compiler::name compiler::ref compiler::ref-clb compiler::ref-ccb compiler::exit compiler::value-to-go compiler::var)
  15. system::defstruct-form
  16. system::is-a-structure
  17. ((compiler::name lisp::nil lisp::nil lisp::nil 0) (compiler::ref lisp::nil lisp::nil lisp::nil 1) (compiler::ref-clb lisp::nil lisp::nil lisp::nil 2) (compiler::ref-ccb lisp::nil lisp::nil lisp::nil 3) (compiler::exit lisp::nil lisp::nil lisp::nil 4) (compiler::value-to-go lisp::nil lisp::nil lisp::nil 5) (compiler::var lisp::nil lisp::nil lisp::nil 6))
  18. system::structure-slot-descriptions
  19. system::structure-include
  20. system::structure-print-function
  21. system::structure-type
  22. system::structure-named
  23. compiler::blk-name
  24. (compiler::blk . 0)
  25. system::structure-access
  26. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 0 system::v))
  27. system::setf-lambda
  28. system::setf-update-fn
  29. system::setf-method
  30. system::setf-documentation
  31. compiler::blk-ref
  32. (compiler::blk . 1)
  33. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 1 system::v))
  34. compiler::blk-ref-clb
  35. (compiler::blk . 2)
  36. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 2 system::v))
  37. compiler::blk-ref-ccb
  38. (compiler::blk . 3)
  39. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 3 system::v))
  40. compiler::blk-exit
  41. (compiler::blk . 4)
  42. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 4 system::v))
  43. compiler::blk-value-to-go
  44. (compiler::blk . 5)
  45. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 5 system::v))
  46. compiler::blk-var
  47. (compiler::blk . 6)
  48. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::blk 6 system::v))
  49. 7
  50. system::structure-offset
  51. (compiler::make-blk)
  52. system::structure-constructors
  53. system::structure-documentation
  54. compiler::*blocks*
  55. 1
  56. 0
  57. "The block name ~s is not a symbol."
  58. :name
  59. :ref
  60. :ref-ccb
  61. :ref-clb
  62. compiler::*exit*
  63. compiler::*value-to-go*
  64. compiler::*vs*
  65. compiler::*compiler-output1*
  66. compiler::fun-val
  67. compiler::jump
  68. compiler::*unwind-exit*
  69. compiler::frame
  70. compiler::*clink*
  71. compiler::*ccb-vs*
  72. 2
  73. "The block name ~s is not a symbol."
  74. "The block ~s is undefined."
  75. compiler::top
  76. compiler::make-blk
  77. compiler::copy-blk
  78. compiler::blk-p
  79. compiler::c2block-local
  80. compiler::c2block-clb
  81. compiler::c2block-ccb
  82. compiler::c2return-local
  83. compiler::c2return-clb
  84. compiler::c2return-ccb
  85. :exit
  86. :value-to-go
  87. :var
  88. system::copy-structure
  89. compiler::too-few-args
  90. compiler::cmperr
  91. compiler::c1progn
  92. compiler::reset-info-type
  93. compiler::c2expr
  94. compiler::vs-push
  95. compiler::wt-vs
  96. compiler::unwind-exit
  97. compiler::add-symbol
  98. compiler::wt-clink
  99. compiler::clink
  100. compiler::ccb-vs-push
  101. compiler::wt-vs*
  102. compiler::too-many-args
  103. compiler::cb
  104. compiler::lb
  105. compiler::c1expr
  106. compiler::c2expr*
  107. compiler::wt-ccb-vs
  108. compiler::wt1
  109. )
  110.